PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be004.dxr/00008.ls

Text File | 2001-03-02 | 2.1 KB | 43 lines

on exitFrame
  if the visible of sprite 47 = 1 then
    set randomiser to 1
    set verty to 1
  end if
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to 2
  else
    set verty to -2
  end if
  if the visible of sprite 48 = 1 then
    set the locH of sprite 30 to the locH of sprite 30 + random(15)
    set the locV of sprite 30 to the locV of sprite 30 + verty
  else
    set the locH of sprite 30 to the locH of sprite 30 - random(15)
    set the locV of sprite 30 to the locV of sprite 30 + verty
  end if
  if (the locH of sprite 30 = 600) or (the locH of sprite 30 = 601) or (the locH of sprite 30 = 602) or (the locH of sprite 30 = 603) or (the locH of sprite 30 = 604) or (the locH of sprite 30 = 605) or (the locH of sprite 30 = 606) or (the locH of sprite 30 = 607) or (the locH of sprite 30 = 608) or (the locH of sprite 30 = 609) or (the locH of sprite 30 = 610) or (the locH of sprite 30 = 611) or (the locH of sprite 30 = 612) or (the locH of sprite 30 = 613) or (the locH of sprite 30 = 614) or (the locH of sprite 30 = 615) then
    set the visible of sprite 48 to 0
  end if
  if (the locH of sprite 30 = 15) or (the locH of sprite 30 = 16) or (the locH of sprite 30 = 17) or (the locH of sprite 30 = 18) or (the locH of sprite 30 = 19) or (the locH of sprite 30 = 20) or (the locH of sprite 30 = 21) or (the locH of sprite 30 = 22) or (the locH of sprite 30 = 23) or (the locH of sprite 30 = 24) or (the locH of sprite 30 = 25) or (the locH of sprite 30 = 26) or (the locH of sprite 30 = 27) or (the locH of sprite 30 = 28) or (the locH of sprite 30 = 29) or (the locH of sprite 30 = 30) then
    set the visible of sprite 48 to 1
  end if
  set the locV of sprite 30 to the locV of sprite 30 + random(5)
  set the locV of sprite 30 to the locV of sprite 30 - random(5)
  if sprite 30 intersects sprite(28) then
    set the locV of sprite 30 to the locV of sprite 30 + 20
  end if
  if sprite 30 intersects sprite(27) then
    set the locV of sprite 30 to the locV of sprite 30 - 20
  end if
  if the timer < 1290 then
    go(the frame)
  else
    go(the frame + 1)
  end if
end

on mouseUp
  go(80)
end